00100	PROCEDURE XGPLOT;
00200	BEGIN "XGP"
00300	
00410	REQUIRE "SXF.REL[SAI,NJM]" LIBRARY;
00420	REQUIRE "XM.REL[FEB,NJM]" LIBRARY;
00430	REQUIRE "SIO.REL[SAI,NJM]" LIBRARY;
00440	EXTERNAL FORTRAN PROCEDURE XSET;
00450	EXTERNAL FORTRAN PROCEDURE XRVEC;
00460	EXTERNAL FORTRAN PROCEDURE XVEC;
00470	EXTERNAL FORTRAN PROCEDURE XIVEC;
00480	EXTERNAL FORTRAN PROCEDURE XIRVEC;
00490	EXTERNAL FORTRAN PROCEDURE XLINE;
00500	EXTERNAL FORTRAN PROCEDURE VERTAX;
00510	EXTERNAL FORTRAN PROCEDURE SWT25;
00520	EXTERNAL FORTRAN PROCEDURE PTX1;
00530	EXTERNAL FORTRAN PROCEDURE XOUT;
00540	EXTERNAL FORTRAN PROCEDURE XFIN;
00550	INTERNAL STRING XSTR,XSTR1,XSTR2,XSTRH;
00560	INTEGER IX,IX2,IY,XREF,YREF,X2,Y2,HT,XSAVE,XCUT;
00570	INTEGER MIN,MAX,ERR;
00580	MIN←0;
00590	MAX←3500;
00600	XREF←400;
00610	YREF←580;
00620	HT←700;	⊂ Allowing 5 inches for 5000 hertz;
00630	XSET;
00640	
00650	IX←XREF-90; IY←YREF+740; XSTR←"Hertz"; SWT25(IX,IY);
00660	VERTAX(MIN,MAX,XREF,YREF,HT);